home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 41.zip / BS1 part 41 / Devpac 2.12 disk 2.adf / include.cbm / devices / keymap.i < prev    next >
Text File  |  1987-03-31  |  2KB  |  73 lines
  1.    IFND  DEVICES_KEYMAP_I
  2. DEVICES_KEYMAP_I  SET   1
  3. ********************************************************************
  4. *               Commodore-Amiga, Inc.                              *
  5. *               keymap.i                                           *
  6. ********************************************************************
  7. **********************************************************************
  8. *
  9. *  keymap.resource definitions and
  10. *  console.device key map definitions
  11. *
  12. **********************************************************************
  13.  
  14.        IFND     EXEC_NODES_I
  15.        INCLUDE  "exec/nodes.i"
  16.        ENDC
  17.        IFND     EXEC_LISTS_I
  18.        INCLUDE  "exec/lists.i"
  19.        ENDC
  20.  
  21.  STRUCTURE  KeyMap,0
  22.    APTR  km_LoKeyMapTypes
  23.    APTR  km_LoKeyMap
  24.    APTR  km_LoCapsable
  25.    APTR  km_LoRepeatable
  26.    APTR  km_HiKeyMapTypes
  27.    APTR  km_HiKeyMap
  28.    APTR  km_HiCapsable
  29.    APTR  km_HiRepeatable
  30.    LABEL km_SIZEOF
  31.  
  32.  STRUCTURE      KeyMapNode,0
  33.     STRUCT  kn_Node,LN_SIZE     ; including name of keymap
  34.     STRUCT  kn_KeyMap,km_SIZEOF
  35.     LABEL   kn_SIZEOF
  36.  
  37. ;------ the structure of keymap.resource
  38.  STRUCTURE      KeyMapResource,0
  39.     STRUCT  kr_Node,LN_SIZE
  40.     STRUCT  kr_List,LH_SIZE     ; a list of KeyMapNodes
  41.     LABEL   kr_SIZEOF
  42.  
  43.  
  44. KCB_NOP     EQU   7
  45. KCF_NOP     EQU   $80
  46.  
  47. KC_NOQUAL   EQU   0
  48. KC_VANILLA  EQU   7           ; note that SHIFT+ALT+CTRL is VANILLA
  49. KCB_SHIFT   EQU   0
  50. KCF_SHIFT   EQU   $01
  51. KCB_ALT     EQU   1
  52. KCF_ALT     EQU   $02
  53. KCB_CONTROL EQU   2
  54. KCF_CONTROL EQU   $04
  55. KCB_DOWNUP  EQU   3
  56. KCF_DOWNUP  EQU   $08
  57. KCB_DEAD    EQU   5             ; may be dead or modified by dead key:
  58. KCF_DEAD    EQU   $20           ;   use dead prefix bytes
  59.  
  60. KCB_STRING  EQU   6
  61. KCF_STRING  EQU   $40
  62.  
  63. ;------ Dead Prefix Bytes
  64. DPB_MOD         EQU     0
  65. DPF_MOD         EQU     $01
  66. DPB_DEAD        EQU     3
  67. DPF_DEAD        EQU     $08
  68.  
  69. DP_2DINDEXMASK  EQU     $0F     ; mask for index for 1st of two dead keys
  70. DP_2DFACSHIFT   EQU     4       ; shift for factor for 1st of two dead keys
  71.  
  72.    ENDC
  73.